home *** CD-ROM | disk | FTP | other *** search
/ Amiga Magazin: Amiga-CD 1997 May & June / Amiga-CD 1997 #5-6.iso / demos&programme / makecd_2.1 / steuerung < prev    next >
AmigaDOS Script File  |  1992-09-17  |  3KB  |  113 lines
  1. .key param
  2. .bra [
  3. .ket ]
  4. . Skript für Verwaltungsaufgaben
  5. . © MagnaMedia Verlag AG, AMIGA-Magazin
  6. failat >nil: 21
  7. if "[param]" EQ "info"
  8.     set vinfo 1
  9. endif
  10. if "[param]" EQ "copy"
  11.     set vcopy 1
  12. endif
  13. if "[param]" EQ "start"
  14.     set vassign 1
  15.     set vstart 1
  16.     set vunassign 1
  17. endif
  18. if "[param]" EQ "install"
  19.     set vinstall 1
  20. endif
  21. set binfo        1
  22. set bcopy        1
  23. set bstart       1
  24. set binstall     1
  25.  
  26.     echo >t:tmpsteuerung ":c/requestchoice20 >env:AmigaCD/req20erg *"Steuerung*" *"Bitte wählen Sie*"" NOLINE
  27.     set nummer 0
  28.     if $binfo EQ 1
  29.          echo >>t:tmpsteuerung " Info" NOLINE
  30.          set nummer `eval $nummer + 1`
  31.          set ninfo $nummer
  32.     endif
  33.     if $bcopy EQ 1
  34.          echo >>t:tmpsteuerung " Kopieren" NOLINE
  35.          set nummer `eval $nummer + 1`
  36.          set ncopy $nummer
  37.     endif
  38.     if $bstart EQ 1
  39.          echo >>t:tmpsteuerung " Start" NOLINE
  40.          set nummer `eval $nummer + 1`
  41.          set nstart $nummer
  42.     endif
  43.     if $binstall EQ 1
  44.          echo >>t:tmpsteuerung " Installieren" NOLINE
  45.          set nummer `eval $nummer + 1`
  46.          set ninstall $nummer
  47.     endif
  48.     if "[param]" EQ ""
  49.         echo >>t:tmpsteuerung " Ende" NOLINE
  50.         execute >nil: t:tmpsteuerung
  51.         delete >nil: t:tmpsteuerung
  52.         set reqerg[$$] `getenv env:AmigaCD/req20erg`
  53.         if $reqerg[$$] EQ 0
  54.             skip Ende
  55.         endif
  56.     endif
  57.     if $reqerg[$$] EQ $ninfo
  58.         set vinfo 1
  59.     endif
  60.     if $reqerg[$$] EQ $ncopy
  61.         set vcopy 1
  62.     endif
  63.     if $reqerg[$$] EQ $nstart
  64.         set vassign 1
  65.         set vstart 1
  66.         set vunassign 1
  67.     endif
  68.     if $reqerg[$$] EQ $ninstall
  69.         set vinstall 1
  70.     endif
  71. endif
  72.  
  73. if $vinfo EQ 1
  74. ;>>>>>>>> Hier Infotext eintragen
  75.     :c/Metatool :Demos&Programme/MakeCD_2.1/doc/Deutsch/makeCD FT=GUIDE
  76. endif
  77. if $vstart EQ 1
  78. ;>>>>>>>> Hier steht das Startprogramm
  79.     cd :demos&Programme/MakeCD_2.1/
  80.     assign libs: :demos&programme/makecd_2.1 add
  81.     :Demos&Programme/MakeCD_2.1/MakeCD
  82.     assign libs: :demos&programme/makecd_2.1 remove
  83. endif
  84. if $vcopy EQ 1
  85.     execute :c/Verzeichniskopieren ":Demos&Programme/MakeCD_2.1/" "MakeCD_2.1" 1296384
  86. endif
  87. if $vinstall EQ 1
  88. ;>>>>>>>> Hier Install-Skript eintragen
  89.     assign l: :l add
  90.     cd >nil: :Demos&Programme/MakeCD_2.1/
  91.     :c/WBstarter >nil: :Demos&Programme/MakeCD_2.1/Install
  92.     assign l: :l remove
  93.     skip Ende
  94. endif
  95.  
  96. unset binfo
  97. unset vinfo
  98. unset ninfo
  99. unset bstart
  100. unset vstart
  101. unset nstart
  102. unset binstall
  103. unset vinstall
  104. unset ninstall
  105. unset bcopy
  106. unset vcopy
  107. unset ncopy
  108. if "[param]" EQ ""
  109.     Steuerung
  110. endif
  111. LAB Ende
  112. unsetenv reqerg[$$]
  113.